home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / goldspea.lha / GoldSpeak.ged < prev    next >
Text File  |  1995-08-08  |  1KB  |  58 lines
  1. /* GoldSpeak version 1.0 by Dave Naylor - 8th August 1995  */
  2. /* Fidonet 2:250/366 - Amiganet 39:138/40 - Inet knocker@frost3.demon.co.uk */
  3.  
  4. OPTIONS RESULTS
  5.  
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT'
  10. OPTIONS FAILAT 6
  11. SIGNAL ON SYNTAX
  12.  
  13. /******************* ( EDIT THIS BIT TO SUIT!!! ) ****************************
  14. PATH = "MM:Bin/"
  15. *****************************************************************************/
  16.  
  17. 'QUERY ANYTEXT'
  18.  
  19. if (result = 'TRUE') then
  20.  
  21. do
  22.  
  23. FTYPES  = "_Chef|_Kraut|_Jive|_ValSpeak|_Cancel"
  24.  
  25. 'QUERY DOC VAR OLDNAME'
  26. 'SAVE ALL NAME="T:LANG.OUT"'
  27. 'REQUEST BODY="' || Select a style || '" TITLE="' || GoldSpeak by Dave Naylor || '" BUTTON="' || FTYPES || '"'
  28.  
  29. if (Result = 1) then LANG = "Chef"
  30. else if (Result = 2) then LANG = "Kraut"
  31. else if (Result = 3) then LANG = "Jive"
  32. else if (Result = 4) then LANG = "ValSpeak"
  33.  
  34. else Call End
  35.  
  36. 'RUN CMD "'PATH''LANG' <T:LANG.OUT >>T:LANG.IN"'
  37. 'OPEN T:LANG.IN'
  38. 'NAME NEW ' || oldname
  39. 'RUN CMD "DELETE T:LANG.#? >NIL:"'
  40.  
  41. end
  42. 'UNLOCK'
  43. EXIT
  44.  
  45. SYNTAX:
  46.  
  47. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  48. 'UNLOCK'
  49.  
  50. EXIT
  51.  
  52. End:
  53.  
  54. 'NAME NEW ' || oldname
  55. 'UNLOCK'
  56.  
  57. EXIT
  58.